home *** CD-ROM | disk | FTP | other *** search
/ OctaMED Sound Studio 1 / OctaMED SoundStudio V1.iso / docs / rexx / paste.omed < prev    next >
Text File  |  1996-06-18  |  317b  |  10 lines
  1. /* Paste */
  2. rn_bufferexists buff 2 var buffer
  3. if ~buffer then exit
  4. rn_getbufflines buff 2 var length 
  5. ed_getcurrtrack var currtrack
  6. ed_getcurrline var currline
  7. ed_getnumlines var numlines
  8. rn_paste range
  9. if currline+length>=numlines then ed_goto track currtrack line 0
  10. else ed_goto track currtrack line currline+length